library(dplyr)
library(redist)
library(sf)
library(tidyverse)
library(ggplot2)
library(dplyr)
library(forcats)
library(patchwork)

load('districtFTP.RData')

# **** FIGURE A9 *****
wv<-ftp(majority_white_v, actual_maj_wht_v,stringr::str_to_title(cities), xl="Proportion Majority-White Districts (VAP)")

# **** FIGURE A8 ****
wc<-ftp(majority_white_c, actual_maj_wht_c,stringr::str_to_title(cities), xl="Proportion Majority-White Districts (CVAP)")

#hp<-ftp(majority_hisp, actual_maj_hisp,stringr::str_to_title(cities), xl="Proportion Majority-Hispanic Districts (Pop.)") 
# **** FIGURE A6*****
hv<-ftp(majority_hisp_v, actual_maj_hisp_v,stringr::str_to_title(cities), xl="Proportion Majority-Hispanic Districts (VAP)") 

# *** FIGURE 5 ******
hc<-ftp(majority_hisp_c, actual_maj_hisp_c,stringr::str_to_title(cities), xl="Proportion Majority-Hispanic Districts") 

#bp<-ftp(majority_black, actual_maj_blk,stringr::str_to_title(cities), xl="Proportion Majority-Black Districts (Pop.)") 
# **** FIGURE A7*****
bv<-ftp(majority_black_v, actual_maj_blk_v,stringr::str_to_title(cities), xl="Proportion Majority-Black Districts (VAP)") 

# *** FIGURE 4 ******
bc<-ftp(majority_black_c, actual_maj_blk_c,stringr::str_to_title(cities), xl="Proportion Majority-Black Districts") 

#ap<-ftp(majority_asian, actual_maj_asn,stringr::str_to_title(cities), xl="Proportion Majority-Asian Districts (Pop.)") 
# av<-ftp(majority_asian_v, actual_maj_asn_v,stringr::str_to_title(cities), xl="Proportion Majority-Asian Districts (VAP)") 
# ac<-ftp(majority_asian_c, actual_maj_asn_c,stringr::str_to_title(cities), xl="Proportion Majority-Asian Districts (CVAP)") 
